vjj <- value[[ jvseq[[jjj]] ]]